home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / tcp / AmIRCMPEGA.lha / mpega.amirx < prev   
Encoding:
Text File  |  1997-05-26  |  3.0 KB  |  88 lines
  1. /* mpega script for use with AmIRC 1.x
  2.    $VER: mpega.amirx 1.00 (25.05.97)
  3. // Written by Deryk Robosson 25.05.97
  4. //
  5. // newlook@ameritech.net newlook on #amiga IRC (IRCNet)
  6. //
  7. // 25.05.97 - Initial Creation
  8. */
  9.  
  10. /* user setable variables */
  11. mpega_path = 'c:mpega'          /* path to mpega */
  12. mpega_options = '-q 0 -d 4 -m'  /* mpega options (refer to mpega docs for settings */
  13. def_dir = 'data:convert/'       /* default path to mpeg files (MUST end in a '/' or ':') */
  14. show_info = 1                   /* 1 = show info to window, 0 = do not show */
  15.  
  16. /* shouldn't need to change anything below here */
  17. bold = d2c(2)
  18. underline = '1F'x
  19. options results
  20. parse arg param
  21. check=param
  22. if upper(check) = 'VER' then signal version
  23. if upper(check) = 'HELP' then signal help
  24. if check = '' then do
  25.     /* see if we're already playing, if so, break the process */
  26.     if getclip('mpega_playing') = '1' then do
  27.         address command 'status com='mpega_path' >t:mpega.temp'
  28.         if open(file,'t:mpega.temp','R') then pid=readln(file)
  29.         close(file)
  30.         address command 'delete t:mpega.temp force quiet'
  31.         address command 'break process 'pid
  32.         setclip('mpega_playing','0')
  33.     end
  34.     else do /* we weren't playing, notify user */
  35.         call echo('You are not playing anything.')
  36.         signal version
  37.     end
  38.     exit
  39. end
  40.  
  41. /* check to see if the file exists */
  42. if ~exists(def_dir||param) then do
  43.     call echo(def_dir||param' not found.')
  44.     exit
  45. end
  46.  
  47. /* show the mpeg info if show_info is TRUE */
  48. if show_info then do
  49.     address command mpega_path' -h 'def_dir||param' >t:mpega.temp'
  50.     if open(file,'t:mpega.temp','R') then do
  51.         do until eof(file)
  52.             line=readln(file)
  53.             if pos('bps',line) > 0 then do
  54.                 parse var line time' 'type' 'mode' 'bitrate' 'hz
  55.                 call echo(bold||underline||type' 'mode||bold||underline' 'bold'Time:'bold' 'time' - 'bold'Kbps:'bold' 'bitrate' - 'bold'Khz:'bold' 'hz)
  56.             end
  57.         end
  58.     end
  59.     close(file)
  60.     address command 'delete t:mpega.temp force quiet'   /* clean up */
  61. end
  62.  
  63. setclip('mpega_playing','1')    /* make note that we are playing */
  64. call echo(bold'Playing:'bold' 'def_dir||param)
  65. address command mpega_path' 'mpega_options' 'def_dir||param' >NIL:' /* play it */
  66. exit
  67.  
  68. version:    /* show the user version information */
  69.     call echo(bold'mpega.AMIRX'bold' Version 'subword(sourceline(2),4,2))
  70.     call echo('Read the top of mpega.AMIRX script for history.')
  71.     call echo(bold'©1997'bold' Deryk Robosson 'bold'(newlook)'bold' - [newlook@ameritech.net]')
  72.     call echo(bold'Type /mp help for command information')
  73. exit
  74.  
  75. help:      /* show the user help examples */
  76.     call echo(bold'mpega.AMIRX'bold' Help')
  77.     call echo(bold'VER -'bold'displays script version')
  78.     call echo(bold'HELP - 'bold'displays this file')
  79.     call echo(bold||UNDERLINE'EXAMPLES:'bold||UNDERLINE)
  80.     call echo(bold'/mp <song>'bold' to play a song')
  81.     call echo(bold'/mp'bold' to stop play')
  82. exit
  83.  
  84. echo: procedure
  85.     parse arg a
  86.     'echo P='d2c(27)'b«mpega» 'a
  87. return 1
  88.